home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.20020314-20021006 / 000016_fdc@columbia.edu_Thu Apr 4 09:51:06 EST 2002.msg < prev    next >
Text File  |  2020-01-01  |  3KB  |  89 lines
  1. Article: 13286 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!news.columbia.edu!news-not-for-mail
  3. From: fdc@columbia.edu (Frank da Cruz)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: Re: kermit scripts, full-duplex
  6. Date: 4 Apr 2002 09:50:47 -0500
  7. Organization: Columbia University
  8. Lines: 72
  9. Message-ID: <a8hp87$mc8$1@watsol.cc.columbia.edu>
  10. References: <a228ca9f.0204040327.edef2d6@posting.google.com>
  11. NNTP-Posting-Host: watsol.cc.columbia.edu
  12. X-Trace: newsmaster.cc.columbia.edu 1017931849 19503 128.59.39.139 (4 Apr 2002 14:50:49 GMT)
  13. X-Complaints-To: postmaster@columbia.edu
  14. NNTP-Posting-Date: 4 Apr 2002 14:50:49 GMT
  15. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:13286
  16.  
  17. In article <a228ca9f.0204040327.edef2d6@posting.google.com>,
  18. ALB <casimir@roar.com> wrote:
  19. :
  20. : Is it possible to write a basic kermit script to perform full-duplex
  21. : transfer ?
  22. :
  23. : The aim is to perform modem tests, without any protocols. Basically,
  24. : send and receive the "check fox" string in loop, and verify
  25. : automatically that no character are lost. The constraint is to be
  26. : really full-duplex, and not sequentially send or receive.
  27. : 
  28. Kermit scripts are single-process, single-thread.  But that should not
  29. be an impediment; the underlying operating system's device drivers
  30. take care of full-duplex i/o (interrupt handling, buffering) for you.
  31.  
  32. : it would be something like that:
  33. :  wait_connection()
  34. :  while (true){
  35. :   how_many_bytes_can_I_send(&nb_bytes_tx)
  36. :   send_fox_string(nb_bytes_tx)
  37. :   get_number_of_bytes_received(&nb_bytes_rx)
  38. :   read_bytes(buff_p, nb_bytes_rx)
  39. :   check_fox_string(buff_p, nb_bytes)
  40. : }
  41. : 
  42. You'd set up the connection like this:
  43.  
  44.   set port /dev/ttyS0               ; Or other device
  45.   if fail exit 1 Can't get port: \v(errstring)
  46.  
  47.   set speed 57600                   ; or other desired speed
  48.   set carrier-watch off             ; you might need this
  49.   set flow rts/cts                  ; or other appropriate flow control
  50.  
  51. Then your echo checking loop could be like this (send a character,
  52. read back its echo):
  53.  
  54.   .string = "check fox"             ; Define test string
  55.   .len := \flen(\m(string))         ; Its length
  56.  
  57.   while true {
  58.       for \%i 1 \m(len) 1 {
  59.           output \s(string[\%i:1])  ; Send a character
  60.           if fail exit 1 Fatal i/o error on output: \v(errstring)
  61.           input 2 \s(string[\%i:1]) ; Wait 2 sec for echo
  62.           if fail {
  63.           echo [\s(string[\%i:1])] TIMED OUT: \v(inwait) sec
  64.               echo Restarting...
  65.               pause 1
  66.               clear input
  67.               break
  68.           } else {
  69.           echo [\s(string[\%i:1])] OK: \v(intime) msec
  70.           }
  71.       }
  72.       output \13                    ; Send a carriage return
  73.   }
  74.  
  75. \s(blah[i:n]) means the substring of the string defined by the macro
  76. whose name is "blah", starting at (1-based) position "i", length "n" bytes.
  77. \v(intime) is the number of milliseconds it took for the echo to arrive.
  78. \v(inwait) is the timeout interval on the INPUT command in seconds (it
  79. needn't be hardwired -- you can use a variable).
  80.  
  81. Of course you could be more fancy -- send the whole string, read back the
  82. echo a character at a time, etc, whatever you want.
  83.  
  84. More about Kermit script programming here:
  85.  
  86.   http://www.columbia.edu/kermit/ckscripts.html
  87.  
  88. - Frank
  89.